home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / OPTIMIZE / SPLASH.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  3.6 KB  |  123 lines
  1. VERSION 5.00
  2. Begin VB.Form Splash 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   3450
  6.    ClientLeft      =   1320
  7.    ClientTop       =   1785
  8.    ClientWidth     =   6855
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    LinkTopic       =   "Form1"
  20.    PaletteMode     =   1  'UseZOrder
  21.    Picture         =   "SPLASH.frx":0000
  22.    ScaleHeight     =   3450
  23.    ScaleWidth      =   6855
  24.    WhatsThisHelp   =   -1  'True
  25.    Begin VB.Label Label2 
  26.       Appearance      =   0  'Flat
  27.       BackColor       =   &H80000005&
  28.       BackStyle       =   0  'Transparent
  29.       Caption         =   "100%"
  30.       ForeColor       =   &H80000008&
  31.       Height          =   225
  32.       Index           =   1
  33.       Left            =   5955
  34.       TabIndex        =   2
  35.       Top             =   2925
  36.       Width           =   465
  37.    End
  38.    Begin VB.Label Label2 
  39.       Appearance      =   0  'Flat
  40.       BackColor       =   &H80000005&
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "0%"
  43.       ForeColor       =   &H80000008&
  44.       Height          =   225
  45.       Index           =   0
  46.       Left            =   1755
  47.       TabIndex        =   1
  48.       Top             =   2925
  49.       Width           =   345
  50.    End
  51.    Begin VB.Label Label1 
  52.       Alignment       =   2  'Center
  53.       Appearance      =   0  'Flat
  54.       BackColor       =   &H80000005&
  55.       BackStyle       =   0  'Transparent
  56.       Caption         =   "Load Status..."
  57.       ForeColor       =   &H80000008&
  58.       Height          =   240
  59.       Left            =   3525
  60.       TabIndex        =   0
  61.       Top             =   2925
  62.       Width           =   1215
  63.    End
  64.    Begin VB.Line Line1 
  65.       BorderColor     =   &H00FFFFFF&
  66.       BorderWidth     =   2
  67.       Index           =   1
  68.       X1              =   6420
  69.       X2              =   1755
  70.       Y1              =   2835
  71.       Y2              =   2835
  72.    End
  73.    Begin VB.Line Line2 
  74.       BorderColor     =   &H00808080&
  75.       BorderWidth     =   2
  76.       Index           =   0
  77.       X1              =   1755
  78.       X2              =   1755
  79.       Y1              =   2415
  80.       Y2              =   2825
  81.    End
  82.    Begin VB.Line Line1 
  83.       BorderColor     =   &H00808080&
  84.       BorderWidth     =   2
  85.       Index           =   0
  86.       X1              =   6420
  87.       X2              =   1755
  88.       Y1              =   2415
  89.       Y2              =   2415
  90.    End
  91.    Begin VB.Shape rctStatusBar 
  92.       BackColor       =   &H00800000&
  93.       BackStyle       =   1  'Opaque
  94.       BorderStyle     =   0  'Transparent
  95.       Height          =   345
  96.       Left            =   1800
  97.       Top             =   2460
  98.       Width           =   15
  99.    End
  100.    Begin VB.Line Line2 
  101.       BorderColor     =   &H00FFFFFF&
  102.       BorderWidth     =   2
  103.       Index           =   1
  104.       X1              =   6420
  105.       X2              =   6420
  106.       Y1              =   2430
  107.       Y2              =   2820
  108.    End
  109. Attribute VB_Name = "Splash"
  110. Attribute VB_GlobalNameSpace = False
  111. Attribute VB_Creatable = False
  112. Attribute VB_TemplateDerived = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115. Option Explicit
  116. Dim iStatusBarWidth As Integer
  117. Private Sub Form_Click()
  118.     Unload Me
  119. End Sub
  120. Private Sub Form_Load()
  121.   CenterMe Me
  122. End Sub
  123.